COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	MacLisp Ready
C00004 ENDMK
C⊗;
MacLisp Ready
T 
FOO 
;DIVIDE UNDEFINED FUNCTION OBJECT
;BKPT UNDF-FNCTN
;POWER UNDEFINED FUNCTION OBJECT
;NIL NON-NUMERIC VALUE
0 
0 
0 
FOO 
FOO 
FOO 
;;;
FOO 
3 
FOO 
FOO 
(defun foo (n) (prog (y count)
		     (setq count 0)
		     (do x (plus 1. (quotient 1. n)) (expt x x) (greaterp x 2)
			 (setq y x)
			 (setq count (1+ count)))
		     (return (cons count y))))

12 
146 
1754 
(12) 
(12) 
(12 . 1.56927249) 
(foo 10.0)
-0.96725062 
;%PI UNBOUND VARIABLE
;BKPT UNBND-VRBL
0.0245436926 
0.0174532926 
(setq degrees (quotient 3.141592653 180.))
-0.195090327 
0.30901699 
0.0 
(difference (expt (plus (times 4. (cos (times 72.0 degrees))) 1.) 2) 5.)
-1.0 
(cos 3.1415926536)
40.7436657 
(quotient 1 degrees)